home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 July / EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso / recent / dalhel.lha / DalHelper / Install_DalHelper < prev    next >
Text File  |  1998-06-22  |  5KB  |  174 lines
  1. ; Installer Script for DalHelper Version 5.13
  2. ; $VER: Install_DalHelper V_5.13 (08.04.98)
  3.  
  4. (set #config-dal
  5. (cat "Configuration of DalHelper is only necessary if you use ChanServ,"
  6.      " MemoServ, and/or NickServ on DalNet and have not already cofigured it"
  7.      " during a previous install, or are creating a DalHelper:MCF.Dal file."
  8. ))
  9.  
  10. (set #install-docs
  11. (cat " Install documentation?\n"
  12.      "This consists of 4 files and their icons.\n"
  13. ))
  14.  
  15. (set #goodbye
  16. (cat "\nInstallation of DalHelper is Complete.\n\n"
  17. ))
  18.  
  19. (set #my-address
  20. (cat    "Donald T Becker\n"
  21.     "335 S Chestnut St\n"
  22.     "Mt Carmel Pa 17851-2219\n\n"
  23.     "email:   dtbecker@ptd.net\n"
  24.     "IRC:     StarDustr!StarDustr@*.ptd.net\n"
  25. ))
  26.  
  27. (set dalrc (= 1))
  28. (set dhver (+ 13 (* 5 65536)))
  29. ;********************************************************************
  30.  
  31. (complete 1)
  32.  
  33. (set target1            (askdir
  34.     (prompt "Select Directory where your AmIRC program is")
  35.     (help "This directory should also have a  Rexx  directory in it")
  36.     (default "RAM:")
  37. ))
  38.  
  39. (set @def-target (target1))
  40. (set @old-file (tackon target1 "MCF.Dal"))
  41.  
  42. (if (Exists "Rexx:DalHelper.amirx" (noreq))
  43.     (run "delete <>nil: Rexx:DalHelper.amirx")
  44. )
  45.  
  46. (if (Exists @old-file (noreq))    (
  47.     (run "copy <>nil:" @old-file "RAM:")
  48.     (run "delete <>nil:" @old-file)
  49.     (set dalrc (- dalrc 1))
  50. ))
  51.  
  52. (if (Exists "env:MCF.Dal" (noreq))    (
  53.     (run "copy <>nil: env:MCF.Dal RAM:")
  54.     (run "delete <>nil: env:MCF.Dal")
  55.     (set dalrc (- dalrc 1))
  56. ))
  57.  
  58. (if (Exists "envarc:MCF.Dal" (noreq))    (
  59.     (run "copy <>nil: envarc:MCF.Dal RAM:")
  60.     (run "delete <>nil: envarc:MCF.Dal")
  61.     (set dalrc (- dalrc 1))
  62. ))
  63.  
  64. (if (Exists "MCF:MCF.Dal" (noreq))    (
  65.     (run "copy <>nil: mcf:MCF.Dal RAM:")
  66.     (run "delete <>nil: mcf:MCF.Dal")
  67.     (set dalrc (- dalrc 1))
  68. ))
  69.  
  70. (if (< dalrc 1)            (
  71.     (set fsize (getsize ("RAM:MCF.Dal")))
  72.     (if (< fsize 35)    (
  73.         (set dalrc (= 1))
  74.     ))
  75. ))
  76.  
  77. (if (= dalrc 1)            (
  78.    (run "echo >RAM:MCF.Dal $VER: MCF.Dal 5.13 (08.04.98)")
  79.  
  80.    (complete 10)
  81.    (set ncntr             (askstring
  82.        (prompt "Enter the number of Nicks that you have Registered.")
  83.        (help "Enter the number of Nicks you have Registered on Dalnet with Nickserv.")
  84.        (default "0")
  85.    ))
  86.  
  87.    (complete 20)
  88.    (while (> ncntr 0)
  89.       (set Dalinfo         (askstring
  90.           (prompt "Enter Registered Nick and Password.")
  91.           (help "Enter you Dalnet Registered Nick, a space and the Nick's Password."
  92.              " Remember that the Password is CaSe SeNsItIvE.")
  93.       ))
  94.       (run "echo >>RAM:MCF.Dal " Dalinfo)
  95.       (set ncntr (- ncntr 1))
  96.    )
  97.  
  98.    (complete 30)
  99.    (set ccntr             (askstring
  100.        (prompt "Enter the number of Channels that you have Registered.")
  101.        (help "Enter the number of Channels you have Registered on Dalnet with Nickserv.")
  102.        (default "0")
  103.    ))
  104.  
  105.    (complete 40)
  106.    (while (> ccntr 0)
  107.       (set Dalinfo        (askstring
  108.           (prompt "Enter Registered Channel and Password.")
  109.           (help "Enter you Dalnet Registered Channel, a space and the Channel's Password."
  110.              " Remember that the Password is CaSe SeNsItIvE.")
  111.       ))
  112.       (run "echo >>RAM:MCF.Dal " Dalinfo)
  113.       (set ccntr (- ccntr 1))
  114.    )
  115. ))
  116.  
  117. (run "copy <>nil: RAM:MCF.Dal" target1)
  118. (run "delete <>nil: RAM:MCF.Dal")
  119.  
  120. (set target2            (askdir
  121.     (prompt "Select Rexx Directory")
  122.     (help "Directory where DalHelper.amirx will be copied to.")
  123.     (default @def-target)
  124. ))
  125.  
  126. (set dhfile (tackon target2 "DalHelper.amirx"))
  127. (set oldver (- 1 1))
  128. (if (Exists dhfile) (
  129.     (set oldver (getversion dhfile))
  130. ))
  131.  
  132. (if (> dhver oldver)(
  133.     (complete 50)
  134.     (copyfiles (
  135.         (source  "Rexx")
  136.         (dest    target2)
  137.         (choices "DalHelper.amirx")
  138.     ))
  139. ))
  140.  
  141. (complete 60)
  142. (if (askbool
  143.     (prompt "Do you wish to Install DalHelper Aliases??")
  144.       (help "This will install Aliases that make using DalHelper easier.")
  145.       (choices "YES" "NO")
  146.       (default 1))
  147.       (
  148.         (message ("Start a copy of AmIRC that has\nAMIRC.1 in the top left corner.\nClick Proceed when ready."))
  149.         (run "rx \"address AMIRC.1 say '/ALIAS CS /Rx DalHelper C %p'\"")
  150.         (run "rx \"address AMIRC.1 say '/ALIAS MS /Rx DalHelper M %p'\"")
  151.         (run "rx \"address AMIRC.1 say '/ALIAS NS /Rx DalHelper N %p'\"")
  152. ))
  153.  
  154. (complete 75)
  155. (set docs (askbool (prompt #install-docs)
  156.         (help #install-docs-help)
  157.         (choices "YES" "NO")
  158.       )
  159. )
  160.  
  161. (complete 90)
  162. (if (= docs 1)                (
  163.     (set target3            (askdir
  164.         (prompt "Select Directory for DalHelper.doc")
  165.         (help "Directory where DalHelper.doc will be copied to.")
  166.         (default @def-target)
  167.     ))
  168.     (run "copy <>nil: docs/Dal#?" target3)
  169. ))
  170.  
  171. (complete 100) (message #goodbye #my-address)
  172.  
  173. (exit (quiet))
  174.